home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-02-08 | 994 b |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| GW-BASIC (document/gwBasic)
| ext
| Supported |
| 66%
| dexvert
| GFA-BASIC Atari (other/gfaBASICAtari)
| ext
| Supported |
| 1%
| dexvert
| Memotech MTX BASIC source (document/memotechMTXBASICSource)
| ext
| Unsupported |
| 1%
| dexvert
| Amiga BASIC Protected File (other/amigaBASICProtectedFile)
| ext
| Unsupported |
| 1%
| dexvert
| BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source)
| ext
| Unsupported |
| 1%
| dexvert
| Visual Basic Tokenized Source (other/visualBasicTokenizedSource)
| ext
| Unsupported |
| 1%
| dexvert
| ZBASIC (other/zbasic)
| ext
| Unsupported |
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| de 03 00 00 0d 0a 27 20 | 53 70 68 65 72 65 31 20 |......' |Sphere1 |
|00000010| 28 52 61 69 6e 29 2e 0d | 0a 20 0d 0a 27 20 49 6e |(Rain)..|. ..' In|
|00000020| 70 75 74 3a 09 31 2d 34 | 2d 38 2d 32 34 20 62 69 |put:.1-4|-8-24 bi|
|00000030| 74 0d 0a 27 20 4f 75 74 | 70 75 74 3a 09 69 64 65 |t..' Out|put:.ide|
|00000040| 6d 0d 0a 0d 0a 27 20 41 | 75 74 68 6f 72 3a 09 41 |m....' A|uthor:.A|
|00000050| 6e 64 72 65 61 20 42 65 | 6e 6f 6e 69 09 09 09 20 |ndrea Be|noni... |
|00000060| 72 65 76 3a 09 31 2e 32 | 0d 0a 0d 0a 0d 0a 73 74 |rev:.1.2|......st|
|00000070| 72 69 6e 67 20 20 20 20 | 09 69 6e 70 46 69 6c 65 |ring |.inpFile|
|00000080| 2c 6f 75 74 46 69 6c 65 | 0d 0a 44 65 76 43 6f 6e |,outFile|..DevCon|
|00000090| 09 49 62 6d 70 2c 4f 62 | 6d 70 0d 0a 52 47 42 09 |.Ibmp,Ob|mp..RGB.|
|000000a0| 70 69 78 0d 0a 66 6c 6f | 61 74 20 20 09 72 2c 72 |pix..flo|at .r,r|
|000000b0| 73 2c 61 2c 78 2c 79 2c | 72 61 64 2c 78 72 2c 79 |s,a,x,y,|rad,xr,y|
|000000c0| 72 2c 4c 69 2c 4c 61 74 | 6f 0d 0a 0d 0a 69 6e 70 |r,Li,Lat|o....inp|
|000000d0| 46 69 6c 65 3d 22 54 65 | 73 74 69 2e 62 6d 70 22 |File="Te|sti.bmp"|
|000000e0| 09 09 09 27 20 69 6e 70 | 75 74 20 66 69 6c 65 0d |...' inp|ut file.|
|000000f0| 0a 6f 75 74 46 69 6c 65 | 3d 22 54 65 73 74 6f 2e |.outFile|="Testo.|
|00000100| 62 6d 70 22 09 09 09 27 | 20 6f 75 74 70 75 74 20 |bmp"...'| output |
|00000110| 66 69 6c 65 0d 0a 0d 0a | 49 62 6d 70 3d 4c 6f 61 |file....|Ibmp=Loa|
|00000120| 64 49 6d 61 67 65 28 69 | 6e 70 46 69 6c 65 29 0d |dImage(i|npFile).|
|00000130| 0a 4f 62 6d 70 3d 43 72 | 65 61 74 65 49 6d 61 67 |.Obmp=Cr|eateImag|
|00000140| 65 28 49 62 6d 70 2e 57 | 69 64 74 68 2c 49 62 6d |e(Ibmp.W|idth,Ibm|
|00000150| 70 2e 48 65 69 67 68 74 | 2c 32 34 29 0d 0a 0d 0a |p.Height|,24)....|
|00000160| 72 61 64 3d 36 2e 32 38 | 2f 38 30 0d 0a 4c 61 74 |rad=6.28|/80..Lat|
|00000170| 6f 3d 32 32 0d 0a 0d 0a | 46 6f 72 20 78 72 3d 31 |o=22....|For xr=1|
|00000180| 31 20 74 6f 20 49 62 6d | 70 2e 57 69 64 74 68 2d |1 to Ibm|p.Width-|
|00000190| 31 31 20 53 74 65 70 20 | 4c 61 74 6f 0d 0a 20 20 |11 Step |Lato.. |
|000001a0| 46 6f 72 20 79 72 3d 31 | 31 20 74 6f 20 49 62 6d |For yr=1|1 to Ibm|
|000001b0| 70 2e 48 65 69 67 68 74 | 2d 31 31 20 53 74 65 70 |p.Height|-11 Step|
|000001c0| 20 4c 61 74 6f 0d 0a 20 | 20 20 20 20 46 6f 72 20 | Lato.. | For |
|000001d0| 72 3d 30 20 74 6f 20 4c | 61 74 6f 0d 0a 20 20 20 |r=0 to L|ato.. |
|000001e0| 20 20 20 20 20 4c 69 3d | 31 2e 34 2d 28 2e 39 2f | Li=|1.4-(.9/|
|000001f0| 4c 61 74 6f 2a 72 29 0d | 0a 20 20 20 20 20 20 20 |Lato*r).|. |
|00000200| 20 72 73 3d 73 69 6e 28 | 31 2e 35 37 2f 4c 61 74 | rs=sin(|1.57/Lat|
|00000210| 6f 2a 72 29 2a 4c 61 74 | 6f 0d 0a 20 20 20 20 20 |o*r)*Lat|o.. |
|00000220| 20 20 20 46 6f 72 20 61 | 3d 30 20 74 6f 20 38 30 | For a|=0 to 80|
|00000230| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 78 3d 73 |.. | x=s|
|00000240| 69 6e 28 72 61 64 2a 61 | 29 0d 0a 20 20 20 20 20 |in(rad*a|).. |
|00000250| 20 20 20 20 20 20 79 3d | 63 6f 73 28 72 61 64 2a | y=|cos(rad*|
|00000260| 61 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 70 |a).. | p|
|00000270| 69 78 3d 47 65 74 50 69 | 78 65 6c 20 28 49 62 6d |ix=GetPi|xel (Ibm|
|00000280| 70 2c 78 2a 72 2b 78 72 | 2c 79 2a 72 2b 79 72 29 |p,x*r+xr|,y*r+yr)|
|00000290| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 70 69 78 |.. | pix|
|000002a0| 2e 52 65 64 3d 6d 69 6e | 28 32 35 35 2c 70 69 78 |.Red=min|(255,pix|
|000002b0| 2e 52 65 64 2a 4c 69 29 | 0d 0a 20 20 20 20 20 20 |.Red*Li)|.. |
|000002c0| 20 20 20 20 20 70 69 78 | 2e 47 72 65 65 6e 3d 6d | pix|.Green=m|
|000002d0| 69 6e 28 32 35 35 2c 70 | 69 78 2e 47 72 65 65 6e |in(255,p|ix.Green|
|000002e0| 2a 4c 69 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |*Li).. | |
|000002f0| 20 70 69 78 2e 42 6c 75 | 65 3d 6d 69 6e 28 32 35 | pix.Blu|e=min(25|
|00000300| 35 2c 70 69 78 2e 42 6c | 75 65 2a 28 4c 69 2b 2e |5,pix.Bl|ue*(Li+.|
|00000310| 32 29 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |2)).. | |
|00000320| 53 65 74 50 69 78 65 6c | 20 28 4f 62 6d 70 2c 78 |SetPixel| (Obmp,x|
|00000330| 2a 72 73 2f 32 2b 78 72 | 2c 79 2a 72 73 2f 32 2b |*rs/2+xr|,y*rs/2+|
|00000340| 79 72 2c 70 69 78 29 0d | 0a 20 20 20 20 20 20 20 |yr,pix).|. |
|00000350| 20 4e 65 78 74 20 61 0d | 0a 20 20 20 20 20 20 4e | Next a.|. N|
|00000360| 65 78 74 20 72 0d 0a 20 | 20 20 50 72 65 76 69 65 |ext r.. | Previe|
|00000370| 77 28 4f 62 6d 70 2c 22 | 49 6d 6d 61 67 69 6e 65 |w(Obmp,"|Immagine|
|00000380| 22 2c 32 2c 35 29 0d 0a | 20 20 20 4e 65 78 74 20 |",2,5)..| Next |
|00000390| 79 72 0d 0a 4e 65 78 74 | 20 78 72 0d 0a 0d 0a 50 |yr..Next| xr....P|
|000003a0| 72 65 76 69 65 77 28 4f | 62 6d 70 2c 22 49 6d 6d |review(O|bmp,"Imm|
|000003b0| 61 67 69 6e 65 22 2c 32 | 2c 35 29 0d 0a 53 61 76 |agine",2|,5)..Sav|
|000003c0| 65 49 6d 61 67 65 28 4f | 62 6d 70 2c 6f 75 74 46 |eImage(O|bmp,outF|
|000003d0| 69 6c 65 29 0d 0a 44 73 | 70 4d 65 73 28 22 4f 6b |ile)..Ds|pMes("Ok|
|000003e0| 22 29 | |") | |
+--------+-------------------------+-------------------------+--------+--------+
